home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / Install < prev    next >
Encoding:
Text File  |  1999-11-02  |  2.9 KB  |  165 lines
  1.  
  2. ;*
  3. ;* Install script for PureBasic V1.10
  4. ;*  
  5. ;* Done by 'AlphaSND'
  6. ;*
  7.  
  8.  
  9. ;*** Autodetection for langage !
  10.  
  11. (if (> (exists ("env:Language")) 0)
  12.   (set Langage_AmigaOS (getenv "Language"))
  13. )
  14.  
  15. (set #Langage 0)
  16.  
  17. (if (= "english"  Langage_AmigaOS) (set #Langage 0))
  18. (if (= "français" Langage_AmigaOS) (set #Langage 1))
  19. (if (= "deutsch"  Langage_AmigaOS) (set #Langage 2))
  20.  
  21. (if (= #Langage 0)
  22.   (
  23.     (set #WelcomePrompt "\nWelcome !\nThank you to let give a try to PureBasic.\n\nPlease choose the langage for PureBasic:")
  24.   )
  25. )
  26.  
  27.  
  28. ;*** Francais ***
  29.  
  30. (if (= #Langage 1)
  31.   (
  32.     (set #WelcomePrompt "\nBienvenue !\nMerci de prendre la peine d'installer PureBasic.\n\nChoisissez la langue qui sera utilisée par PureBasic:")
  33.   )
  34. )
  35.  
  36.  
  37. (if (= #Langage 2)
  38.   (
  39.     (set #WelcomePrompt "\nWelcome !\nThank you to let give a try to PureBasic.\n\nPlease choose the langage for PureBasic:")
  40.   )
  41. )
  42.  
  43.  
  44. (complete 0)
  45.  
  46. (set #Langage
  47.   (askchoice
  48.     (prompt #WelcomePrompt)
  49.     (Help "")
  50.     (choices
  51.       "English"
  52.       "Francais"
  53.       "Deutsch"
  54.     )
  55.     (default #Langage)
  56.   )
  57. )
  58.  
  59.  
  60. ;*** English ***
  61.  
  62. (if (= #Langage 0)
  63.   (
  64.     (set #FBDirPrompt "Where do you want to install PureBasic ?\nA Drawer called 'PureBasic' will be created.")
  65.     (set #FBDirHelp "")
  66.     (set #FBLangSel "Select the languages to install with F-Bench.")
  67.     (set #FBIcon "Select your icons type")
  68.   )
  69. )
  70.  
  71.  
  72. ;*** Francais ***
  73.  
  74. (if (= #Langage 1)
  75.   (
  76.     (set #FBDirPrompt "Où voulez-vous installer PureBasic ?\nUn tiroir nommé 'PureBasic' sera automatiquement créé.")
  77.     (set #FBDirHelp "")
  78.     (set #FBLangSel "Choisissez quels langages vous voulez avoir pour F-Bench")
  79.     (set #FBIcon "Choisissez votre type d'icone")
  80.   )
  81. )
  82.  
  83.  
  84. (if (= #Langage 2)
  85.   (
  86.     (set #FBDirPrompt "Où voulez-vous installer PureBasic ?\nUn tiroir 'PureBasic' sera automatiquement créé.")
  87.     (set #FBDirHelp "")
  88.     (set #FBLangSel "Choisissez quels langages vous voulez avoir pour F-Bench")
  89.     (set #FBIcon "Choisissez votre type d'icone")
  90.   )
  91. )
  92.  
  93. ;*** Directory Select ***
  94.  
  95. (complete 5)
  96.  
  97. (set DestDir
  98.   (askdir
  99.     (prompt #FBDirPrompt)
  100.     (help #FBDirHelp)
  101.     (default "PureBasic:/")
  102.   )
  103. )
  104.  
  105. (set DestDir (expandpath DestDir))
  106. (set @default-dest (tackon DestDir "PureBasic"))
  107.  
  108. (set Base_Dir @default-dest)
  109.  
  110. (makedir @default-dest (infos))
  111.  
  112. (set FBench_dir @default-dest)
  113.  
  114. (set Help_Dir (cat Base_Dir "/Help/"))
  115.  
  116. ;*** Main Files ***
  117.  
  118. (complete 20)
  119.  
  120. (copyfiles
  121.   (source "PureBasic/")
  122.   (dest @default-dest)
  123.   (pattern "#?")
  124.   (optional "nofail")
  125.   (infos)
  126. )
  127.  
  128.  
  129. (copyfiles
  130.   (source "")
  131.   (dest DestDir)
  132.   (pattern "PureBasic.info")
  133. )
  134.  
  135.  
  136. ;*** Locale Help Files ***
  137.  
  138. (complete 30)
  139.  
  140. (if (= #Langage 1)
  141.   (
  142.     (copyfiles
  143.       (source "Francais/")
  144.       (dest Base_Dir)
  145.       (pattern "#?")
  146.       (optional "nofail")
  147.     )
  148.   )
  149. )
  150.  
  151.  
  152. (if (= #Langage 2)
  153.   (
  154.     (copyfiles
  155.       (source "Deutsch/")
  156.       (dest Base_Dir)
  157.       (pattern "#?")
  158.       (optional "nofail")
  159.     )
  160.   )
  161. )
  162.  
  163. (complete 100)
  164.  
  165.